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P ! Com oy current position to specified position 
IDENT = *vO4-000" port File: SCRRELPOS -BLI Edit: JBS1b0« 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 6B 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

ie ALL RIGHTS RESERVED. 
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'e phe a ry le IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

'e SHOULD BE CONSTRUED AS A COMMITMENT BY DIGI EQUIPMENT 

;: CORPORATION. 

ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

i: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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' FACILITY: EDT -=- The DEC Standard Editor 
i ABSTRACT: 


wr 


' 

' 
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' 

: This module compares the current position to a specified position. 
i ENVIRONMENT: Runs at any access mode - AST reentrant 
i AUTHOR: Bob Kushlis, CREATION DATE: September 8, 1979 
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i MODIFIED BY: 


1-001 - Original. DJS 12-Feb-1981. This module was created by 
2S heguta ng the routine REL_POS from module SCREEN. 

- 4x ularte ze headers. JBS~ 15-Mar-1981 
fy to use new compare macro. STS 20-oct-1982 

§: - coats & the appearance of the Listing. 58 “1 7=Jun-1983 
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SBTTL "Declarations’ 
| TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSSC_CMPPOS; 


INCLUDE FILES: 
REQUIRE "EDTSRC:EDTREQ'; 


MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 

EXTERNAL REFERENCES: 
In the routine 
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mt ROUTINE EDTSSSC_CMPPOS ( 


'e¢ 
! FUNCTIONAL DESCRIPTION: 
This routine ceneeres the current position in the buffer to a 


' 

i Current column 
i Model Line 

i Model column 


specified position and returns or +1 depending on their relation. 
i FORMAL PARAMETERS: 
i cP The current position, assumed to be on the current Line 
TESTL The model Line 
TESTP The model position, on the model Line 
i IMPLICIT INPUTS: 
EDTSS$A_CUR_BUF 
i IMPLICIT OUTPUTS: 
NONE 


i ROUTINE VALUE: 


-1 = model position is before the current position 
+1 = model position is on or after the current position 


i SIDE EFFECTS: 
i NONE 


BEGIN 


EXTER 
EDTSSA_ CUR_BUF : REF TBCB_BLOCK; ! The current buffer tbcb. 


LOCAL 
C 


COMP = CMPLNO (EDTSS$A_CUR_BUF CTBCB_CUR_LINJ, .TESTL); 
If (.COMP EQL 0) 
THEN 


IF CHSPTR_LSS (.CP, .TESTP) THEN RETURN (-1) ELSE RETURN (1) 
ELSE 


<m 


Compare current position to specified position 


—a a 


Cy 


4 8 
EDTSSCRRELPOS DISSCRRELPOS = compare current position to spe 16-Sep-1984 01:40: AX-11 Bliss-32 V4.0-74 Pa 4 
100-000 dT 350" Enppos = compere current position to's 12280871382 93:50:38 EDT LSREISCRRELPOS. BL I: - (3) 
3 1¢8 ab ; RETURN (.COMP); 
5 4 i END; ! of routine EDTS$SC_CMPPOS 
TITLE EDTSSCRRELPOS EDTSSCRRELPOS = compare current p 
; osition to spe 


IDENT \V04-000\ 
.EXTRN EDTSSA_CUR_BUF 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


0009 .ENTRY EDTSSSC CPPOS, Save nothing : 0657 
50 000000006 00 06 ¢ ADDL 46, EDTSSA_CUR.BUF, RO + 0704 
1 AC C1 A ADDL3 #4, TESTL,~R1 : 
61 04 Ad 81 CMPW 34 (RO), (RID : 
08 F 0001 BLSSu‘1$ ; 
1 12 1 BNEQ ; 
08 BC : D 1 CMPL (RO), @TESTL : 
1E 0018 BGEQU 2$ : 
50 1 4 10 1$: MNEGL #1, RO : 
9 0 BRA 4$ : 
4 12 00022 2$ BNEQ 86 3$ ; 
g fy 00 CLRAL RO 3 
1 99 6 BRB 4$ ; 
50 1 p 3$ MOVL #1, RO F 
E B 4S BNEQ : 0706 
oc AC 04 ar oF 9 B scebu gre TESTP : 0709 
50 8 f 00 4 MNEGL #1, RO : 
50 01 DO 00038 5s: MOVL #1, RO : 
4 80 é$: RET : 0714 


3; Routine Size: 60 bytes, Routine Base: _EDTSCODE + 0000 


; ort 1 
; 146 716 1 !<BLF/PAGE> 


Name 


-EDTSCODE 


~$335$00 
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Bytes 


eon ll EDISSSCAENPPOS “compare current position to's iste 2:38:88 EDT! Sne}SERAELPoS:0c1; eed 


! of module EDTSSCRRELPOS 


PSECT SUMMARY 
Attributes 
60 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


EDT.SRCJE 
EDT. SRCIP 
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eucceuse Symbols -------- Pages Processing 
Total Loaded Percent Mapped ime 
377 26 4 0:00. 
2 1 36 : $0:00:4 
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